#!/usr/bin/env perl

@arr=("yhp","hello","perl") ;
print("原数组：@arr\n");
#在数组最前面添加 yx
$newSize=unshift(@arr,"yx","ok");
print("修改数组：@arr\n");

#在数组最后面添加 good good
$newSize=push(@arr,"good","good");
print("修改数组2：@arr\n");

#弹出第一个值
$var=shift(@arr);
print("第一个数据为：$var\n");
print("修改数组3：@arr\n");

#弹出最后一个值
$var=pop(@arr);
print("最后个数据为：$var\n");
print("修改数组4：@arr\n");

#截取数组
@sites = qw/google taobao runoob weibo qq facebook 网易/;
@sites2 = @sites[3..5];
print "@sites2\n";

#数组排序 ascii排序
@num=qw/1 43 3 2 6 9 7/;
print("排序前：@num\n");
@num=sort(@num);
print("排序后：@num\n");

# 合并数组
@a1=(1,2,3);
@a2=(4,5,6);
@a3=(@1,@a2);
print("@a3\n");
